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-- file CompilerDefs.Mesa 

-- last modified by Satterthwaite. March 20, 1978 5:23 PM 

DIRECTORY 

ControlDefs: FROM "controldef s". 
ErrorTabDefs: FROM "errortabdefs" , 
SegmentDefs: FROM "segmentdefs". 
StreamDefs: FROM "streamdef s" . 
SymDefs: FROM "symdefs", 
TreeDefs: FROM "treedefs"; 

CompilerDefs: DEFINITIONS - 
BEGIN 

NTableDivisions: CARDINAL » 10; -- allocator parameter 

Passlndex: TYPE ■ { 
util ities. 
passl, 
pass2, 
pass3, 
pass4, 
pass5, 
debug}; 

-- compiler passes 



PlUnit 
P2Unit 
PSUnit 
P4Unit 



PROCEDURE [SegmentDefs. FileSegmentHandle] RETURNS [BOOLEAN]; 
TreeDefs. TreeMap; 
TreeDefs. TreeMap; 
TreeDef s.TreeScan; 



P5module: PROCEDURE; 

-- object output 

SetObjectStamp: PROCEDURE; 

StartObjectFile: PROCEDURE [SegmentDefs . FileHandle] RETURNS [StreamDefs .StreamHandle]; 

EndObjectFile: PROCEDURE [success: BOOLEAN]; 

TableOut: PROCEDURE [sourceFile: STRING]; 

OpenXref Journal , CloseXref Journal : PROCEDURE; 
AppendXrefWords: PROCEDURE [addr: POINTER, n: CARDINAL]; 

nextFilePage: PROCEDURE RETURNS [CARDINAL]; 

StartBCD: PROCEDURE; 

ReadBCDOffset: PROCEDURE RETURNS [CARDINAL]; 

ReadBCDIndex: PROCEDURE RETURNS [StreamDefs .Streamlndex] ; 

AppendBCDWord: PROCEDURE [word: UNSPECIFIED]; 

AppendBCDWords: PROCEDURE [addr: POINTER, n: CARDINAL]; 

AppendBCDString: PROCEDURE [s: STRING]; 

UpdateBCDWords: PROCEDURE [offset: CARDINAL, addr: POINTER, n: CARDINAL]; 

EndBCD: PROCEDURE; 

-- string output 

OpenStringTable: PROCEDURE RETURNS [ErrorTabDefs .CSRptr] ; 
CloseStringTable: PROCEDURE; 

~- debugging 

PrintTree: PROCEDURE [TreeDef s .TreeLink]; 
PrintBodies: PROCEDURE; 
PrintSymbols: PROCEDURE; 

-- swapping control 

MakeSwappable: PUBLIC PROCEDURE [module: PROGRAM, pass: Passlndex]; 

Passl, Pass2, PassS, Pass4, Code: PROGRAM; 

Control: PROGRAM [ 

creationTime: STRING, 

creator: UNSPECIFIED --ControlDefs .GlobalFrameHandle--. 
parseTableSeg: SegmentDefs. FileSegmentHandle, 
stringTableSeg: SegmentDefs .FileSegmentHandle] ; 
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END. 



